home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / 06-11.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  873 b   |  44 lines
  1. program main;
  2. uses fgmain;
  3.  
  4. const
  5.   RECTANGLES : integer = 200;
  6.  
  7. var
  8.   i                      : integer;
  9.   minx, maxx, miny, maxy : integer;
  10.   old_mode               : integer;
  11.   temp                   : integer;
  12.   xres, yres             : integer;
  13.  
  14. procedure SWAP ( var a, b, temp : integer );
  15. begin
  16.   temp := a; a := b; b := temp;
  17. end;
  18.  
  19. begin
  20.   old_mode := fg_getmode;
  21.   fg_setmode(fg_automode);
  22.  
  23.   xres := fg_getmaxx + 1;
  24.   yres := fg_getmaxy + 1;
  25.  
  26.   for i := 0 to RECTANGLES-1 do
  27.   begin
  28.      minx := random(xres);
  29.      maxx := random(xres);
  30.      miny := random(yres);
  31.      maxy := random(yres);
  32.      if (minx > maxx) then
  33.         SWAP(minx,maxx,temp);
  34.      if (miny > maxy) then
  35.         SWAP(miny,maxy,temp);
  36.      fg_setcolor(random(16));
  37.      fg_rect(minx,maxx,miny,maxy);
  38.   end;
  39.  
  40.   fg_setmode(old_mode);
  41.   fg_reset;
  42. end.
  43.  
  44.